Public Class ACLista
   Implements ICloneable

   Private m_codigo As String
   Private m_Descripcion As String

   Public Sub New()

   End Sub

   Sub New(ByVal x_codigo As String, ByVal x_descripcion As String)
      ACCodigo = x_codigo
      ACDescripcion = x_descripcion
   End Sub

   Public Property ACCodigo() As String
      Get
         Return m_codigo
      End Get
      Set(ByVal value As String)
         m_codigo = value
      End Set
   End Property
   Public Property ACDescripcion() As String
      Get
         Return m_Descripcion
      End Get
      Set(ByVal value As String)
         m_Descripcion = value
      End Set
   End Property


   Public Shared ReadOnly Property Codigo() As String
      Get
         Return "ACCodigo"
      End Get
   End Property

   Public Shared ReadOnly Property Descripcion() As String
      Get
         Return "ACDescripcion"
      End Get
   End Property


   Public Function Clone() As Object Implements System.ICloneable.Clone
      Try
         Dim cloneInstance As ACLista
         cloneInstance = DirectCast(Me, ACLista)
         Return cloneInstance.MemberwiseClone()
      Catch ex As Exception
         Throw ex
      End Try
   End Function

End Class